home *** CD-ROM | disk | FTP | other *** search
/ The Arsenal Files 8 / The Arsenal Files Collection #8 (Arsenal Computer) (1996).ISO / wildcat / l32b5.zip / UPGRADE.WCX (.txt) < prev   
Wildcat! WCX  |  1996-04-03  |  2KB  |  173 lines
  1. '! Decompiled with wccNosy version 4.20f (freeware)
  2. '! Input File: in.wcx  2020 bytes  11/15/122  01:49:30am
  3. '! Code Segment Size  :1268 bytes
  4. '! Data Segment Size  :4934 bytes
  5. '! String Segment Size:752 bytes
  6. '! Compiled with WCC version 4.10
  7.  
  8.       Type Type30
  9.         s0 As String*70
  10.         t29_70 As Type29
  11.         Filler70(1 To 2) As Byte
  12.         s72 As String*30
  13.       End Type
  14.  
  15.       Type Type29
  16.       End Type
  17.  
  18.       Type Type28
  19.         s0 As String*70
  20.         t29_70 As Type29
  21.       End Type
  22.  
  23.       Type Type27
  24.         s0 As String*70
  25.         s70 As String*8
  26.         w78 As Word
  27.         w80 As Word
  28.         s82 As String*1
  29.         s83 As String*1
  30.         s84 As String*1
  31.         s85 As String*1
  32.         s86 As String*1
  33.         l87 As Long
  34.         d91 As Date
  35.         s93 As String*1
  36.         s94 As String*1
  37.       End Type
  38.  
  39.       Type Type26
  40.         s0 As String*70
  41.         s70 As String*8
  42.         i78 As Integer
  43.         i80 As Integer
  44.         s82 As String*1
  45.         s83 As String*1
  46.         s84 As String*1
  47.         s85 As String*1
  48.       End Type
  49.  
  50.       Dim t26_4463 As Type26
  51.       Dim t27_4556 As Type27
  52.       Dim t28_4746 As Type28
  53.       Dim t30_4818 As Type30
  54.       Dim i4920 As Integer
  55.       Dim s4922 As String
  56.       Dim s4926 As String
  57.       Dim l4930 As Long
  58.  
  59.       Dim s65532_ As String
  60.  
  61.       Cls 
  62.       If Not Exists("listserv.cfg") Then
  63.         Print
  64.         Print "@0C@Unable to locate @0F@LISTSERV.CFG"
  65.         Print
  66.         WaitEnter 
  67.         End 
  68.       End If
  69.    76 Open "listserv.cfg" For Input As 1
  70.       Input #1, s4926
  71.       Input #1, s4926
  72.       Close 1
  73.       Cls 
  74.       Print
  75.       Print " @0D@- @0B@Listserv Upgrade Utility @0D@-"
  76.       Print
  77.       Print " @09@[@0F@A@09@] @0E@- @0A@Upgrade from v2.6x to v2.9x"
  78.       Print " @09@[@0F@B@09@] @0E@- @0A@Upgrade from v2.7x to v2.9x"
  79.       Print " @09@[@0F@Q@09@] @0E@- @0A@Quit"
  80.       Print
  81.       Print " @0B@Choice@07@: ";
  82.       Do
  83.   169   s4922 = UCase(InKey(1213417543))
  84.       Loop Until s4922 = "A" Or s4922 = "B" Or s4922 = "Q"
  85.       s65532_ = s4922
  86.       If s65532_ = "A" Then
  87.         GoTo 319
  88.       Else
  89.   264   If s65532_ = "B" Then
  90.           GoTo 835
  91.         Else
  92.   293     If s65532_ = "Q" Then
  93.             Print
  94.             End 
  95.             GoTo 319
  96.           End If
  97.         End If
  98.       End If
  99.   319 Print
  100.       Print "@0A@This will upgrade your Listserv v2.6x data files to v2.8x"
  101.       Print "@0A@Make sure you back up your data files first!"
  102.       Print
  103.       Print "@0B@Are you ready to proceed? "; DefColor;
  104.       If Not InputYesNo("", -1) Then
  105.         End 
  106.       End If
  107.   375 If Exists(s4926 + "listserv.da2") Then
  108.         Kill s4926 + "listserv.da2"
  109.       End If
  110.   409 Open s4926 + "listserv.dat" For Random As 1 Len = 93 '! This value should probably be replaced with a "SizeOf" expression
  111.       Open s4926 + "listserv.da2" For Random As 2 Len = 95 '! This value should probably be replaced with a "SizeOf" expression
  112.       i4920 = 1
  113.       Do
  114.   468   Get 1, i4920, t26_4463 '! 93 bytes
  115.         If t26_4463.s0 <> "<BLANK>" Then
  116.           Print "@0A@Upgrading @0F@"; t26_4463.s0
  117.           UpdateScreen 
  118.           t27_4556.s0 = t26_4463.s0
  119.           t27_4556.s70 = t26_4463.s70
  120.           t27_4556.w78 = t26_4463.i78
  121.           t27_4556.w80 = t26_4463.i80
  122.           t27_4556.s82 = t26_4463.s82
  123.           t27_4556.s83 = t26_4463.s83
  124.           t27_4556.s84 = t26_4463.s84
  125.           t27_4556.s85 = t26_4463.s85
  126.           t27_4556.s86 = "Y"
  127.           t27_4556.l87 = 0
  128.           CurrentDate t27_4556.d91
  129.           t27_4556.s93 = "Y"
  130.           t27_4556.s94 = "L"
  131.           Put 2, LOF(2) + 1, t27_4556 '! 95 bytes
  132.         End If
  133.   754   Inc i4920
  134.       Loop Until i4920 > LOF(1)
  135.       Reset 
  136.       Kill s4926 + "listserv.dat"
  137.       CopyFile(s4926 + "listserv.da2", s4926 + "listserv.dat")
  138.       Kill s4926 + "listserv.da2"
  139.   835 Cls 
  140.       Reset 
  141.       Print
  142.       Open s4926 + "listserv.dat" For Random As 1 Len = 95 '! This value should probably be replaced with a "SizeOf" expression
  143.       i4920 = 1
  144.       Do
  145.   876   Get 1, i4920, t27_4556 '! 95 bytes
  146.         If t27_4556.s0 <> "<BLANK>" Then
  147.           Print "@0B@Upgrading subscriber file @0F@"; t27_4556.s70; "@0B@..."
  148.           UpdateScreen 
  149.           l4930 = 1
  150.           Open s4926 + t27_4556.s70 + ".DAT" For Random As 2 Len = 72 '! This value should probably be replaced with a "SizeOf" expression
  151.           Open s4926 + t27_4556.s70 + ".DA2" For Random As 3 Len = 102 '! This value should probably be replaced with a "SizeOf" expression
  152.           Do
  153.  1024       Get 2, l4930, t28_4746 '! 72 bytes
  154.             t30_4818.s0 = t28_4746.s0
  155.             t30_4818.t29_70 = t28_4746.t29_70 '! 2 bytes
  156.             t30_4818.s72 = ""
  157.             Put 3, l4930, t30_4818 '! 102 bytes
  158.             Inc l4930
  159.           Loop Until l4930 > LOF(2)
  160.           Close 2
  161.           Close 3
  162.           CopyFile(s4926 + t27_4556.s70 + ".DA2", s4926 + t27_4556.s70 + ".DAT")
  163.           Kill s4926 + t27_4556.s70 + ".DA2"
  164.         End If
  165.  1208   Inc i4920
  166.       Loop Until i4920 > LOF(1)
  167.       Reset 
  168.       Print
  169.       Print "@0E@Upgrade completed!  @0B@Run Listutil and check your data."
  170.       Print
  171.       WaitEnter 
  172.       End 
  173.